home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
net_port.zip
/
RUNALL.WCC
< prev
next >
Wrap
Text File
|
1996-04-16
|
975b
|
43 lines
' Written for public by Charles Meadows 01/25/96
' Runs faster with EnablePages FALSE 01/29/96 - CM
' Removed StatusClose() 02/03/96 - CM
' Change the (10) below to as many programs as you will have in runall.cfg
'
EnablePages FALSE
Dim RunAll(10) As String
Dim RunAll_Counter As Integer
Dim l As Integer
Dim RunAllCfg As String
Dim Temp As String
RunAllCfg = ProgPath + "RUNALL.CFG"
If Paramcount > 0 Then
RunAllCfg = ProgPath + Paramstr(1)
End If
CLS
PRINT "Reading"+RunAllCfg
UpdateScreen
RunAll_Counter = 0
If Exists(RunAllCfg) Then
Open RunAllCfg For Input as #1
While Not(EOF(1))
Input #1, Temp
If Trim(Temp) <> "" And Left(Temp,1) <> ";" Then
RunAll_Counter = RunAll_Counter + 1
RunAll(RunAll_Counter) = Trim(Ucase(Temp))
End If
Wend
Close #1
End If
For l = 1 To RunAll_Counter
Print RunAll(l)
UpdateScreen
Run RunAll(l)
Next